home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / timeline.dir / 00009_Script_9 < prev    next >
Text File  |  1983-01-29  |  797b  |  30 lines
  1. on ritorna
  2.   
  3.   global percorso,r_movie,funzioni
  4.   set funzioni to ""
  5.   if count (percorso) > 1 then
  6.     blocca
  7.     deleteat (percorso,count(percorso))
  8.     set r_movie = getlast (percorso)
  9.     set r_marker = getPropAt(percorso, count(percorso)) 
  10.     delete char 1 of r_movie
  11.     --  put percorso
  12.     
  13.     if r_movie = the moviepath & the moviename then
  14.       deleteat (percorso,count(percorso))
  15.       repeat with a = 1 to 48
  16.         puppetsprite a,false
  17.         set the visible of sprite a to true
  18.       end repeat
  19.       go to frame r_marker
  20.       exit
  21.     else
  22.       deleteat (percorso,count(percorso))
  23.       if the colorDepth<=8 then viff 1,48
  24.       toglimenubar
  25.       updatestage
  26.       go to frame r_marker of movie r_movie
  27.       exit 
  28.     end if    
  29.   end if
  30. end